PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Sound/Sound Utilities/Sound Studio 3.0/Sound Studio 3.0/card_5380.txt

Text File | 1988-04-24 | 17.7 KB | 867 lines

-- card: 5380 from stack: in.0
-- bmap block id: 6415
-- flags: 0000
-- background id: 3919
-- name: Studio
----- HyperTalk script -----
on selectNote
  global Note
  if hilite of target is false then
    if Note is not empty then
      set hilite of button Note to false
    end if
    set hilite of target to true
    put the short name of the target into Note
  else
    set hilite of target to false
    put empty into Note
  end if
  PlayNote
end selectNote

on selectAccidental
  global Accidental,Note
  if Note is empty then exit selectAccidental
  if hilite of target is false then
    if Accidental is not empty then
      set hilite of button Accidental to false
    end if
    set hilite of target to true
    put the short name of the target into Accidental
  else
    set hilite of target to false
    put empty into Accidental
  end if
  PlayNote
end selectAccidental

on selectOctave
  global Octave,Note
  if Note is empty then exit selectOctave
  if hilite of target is false then
    if Octave is not empty then
      set hilite of button Octave to false
    end if
    set hilite of target to true
    put the short name of the target into Octave
  else
    set hilite of target to false
    put empty into Octave
  end if
  PlayNote
end selectOctave

on selectDuration
  global Duration,Note
  if Note is empty then exit selectDuration
  if hilite of target is false then
    if Duration is not empty then
      set hilite of button Duration to false
    end if
    set hilite of target to true
    put the short name of the target into Duration
  else
    set hilite of target to false
    put empty into Duration
  end if
  PlayNote
end selectDuration

on selectOptions
  global Options,Note
  if Note is empty then exit selectOptions
  if hilite of target is false then
    if Options is not empty then
      set hilite of button Options to false
    end if
    set hilite of target to true
    put the short name of the target into Options
  else
    set hilite of target to false
    put empty into Options
  end if
  PlayNote
end selectOptions

on ConvertGlobals
  Global Accidental,Octave,Options,Duration
  if Accidental = "‚à´" then put b into Accidental
  if Options = "£" then put 3 into Options
  If Duration = "‰" then put e into Duration
  if Octave = not empty then
    if Octave = "One" then put 1 into Octave
    if Octave = "Two" then put 2 into Octave
    if Octave = "Three" then put 3 into Octave
    if Octave = "Four" then put 4 into Octave
    if Octave = "Five" then put 5 into Octave
    if Octave = "Six" then put 6 into Octave
    if Octave = "Seven" then put 7 into Octave
  end if
end ConvertGlobals

on RevertGlobals
  Global Accidental,Octave,Options,Duration
  if Accidental = "b" then put "‚à´" into Accidental
  if Options = "3" then put "£" into Options
  If Duration = "e" then put "‰" into Duration
  if Octave is not empty then
    if Octave = 1 then put "One" into Octave
    if Octave = 2 then put "Two" into Octave
    if Octave = 3 then put "Three" into Octave
    if Octave = 4 then put "Four" into Octave
    if Octave = 5 then put "Five" into Octave
    if Octave = 6 then put "Six" into Octave
    if Octave = 7 then put "Seven" into Octave
  end if
end RevertGlobals

on PlayNote
  global Note,Accidental,Octave,Duration,Options
  ConvertGlobals
  if Note is empty then
    play card field sound
    RevertGlobals
    exit PlayNote
  end if
  put quote&Note&Accidental&Octave&Duration&Options"e into thisNote
  if card field speed is not empty then
    play card field sound tempo card field speed thisnote
    RevertGlobals
    exit PlayNote
  end if
  play card field sound thisnote
  RevertGlobals
end PlayNote

on closecard
  global Note,Accidental,Octave,Duration,Options
  if Note is not empty then set hilite of button Note to false
  if Accidental is not empty then set hilite of button Accidental to false
  if Octave is not empty then set hilite of button Octave to false
  if Duration is not empty then set hilite of button Duration to false
  if Options is not empty then set hilite of button Options to false
  Put empty into Note
  Put empty into Accidental
  Put empty into Octave
  Put empty into Duration
  Put empty into Options
end closecard

on NextVersion
  answer "Did you send a disk for the next version?" with "Uh Oh"
end NextVersion




-- part 1 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=3 top=255 right=340 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 2 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=0 top=32 right=49 bottom=112
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name:


-- part 3 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=111 top=31 right=50 bottom=273
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Sound


-- part 4 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=413 top=32 right=49 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name:


-- part 5 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=468 top=31 right=50 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Speed


-- part 6 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=13 top=74 right=93 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: C
----- HyperTalk script -----
on mouseUp
  SelectNote
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=13 top=92 right=111 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: D
----- HyperTalk script -----
on mouseUp
  SelectNote
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=13 top=110 right=129 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: E
----- HyperTalk script -----
on mouseUp
  SelectNote
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=13 top=128 right=147 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: F
----- HyperTalk script -----
on mouseUp
  SelectNote
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=13 top=146 right=165 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: G
----- HyperTalk script -----
on mouseUp
  SelectNote
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=13 top=164 right=183 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: A
----- HyperTalk script -----
on mouseUp
  SelectNote
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=13 top=182 right=201 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: B
----- HyperTalk script -----
on mouseUp
  SelectNote
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0005
-- rect: left=72 top=74 right=93 bottom=154
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: #
----- HyperTalk script -----
on mouseUp
  SelectAccidental
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0005
-- rect: left=72 top=92 right=111 bottom=154
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ∫
----- HyperTalk script -----
on mouseUp
  SelectAccidental
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=172 top=74 right=93 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: One
----- HyperTalk script -----
on mouseUp
  SelectOctave
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=172 top=92 right=111 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Two
----- HyperTalk script -----
on mouseUp
  SelectOctave
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=172 top=110 right=129 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Three
----- HyperTalk script -----
on mouseUp
  SelectOctave
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=172 top=128 right=147 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Four
----- HyperTalk script -----
on mouseUp
  SelectOctave
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=172 top=146 right=165 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Five
----- HyperTalk script -----
on mouseUp
  SelectOctave
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=172 top=164 right=183 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Six
----- HyperTalk script -----
on mouseUp
  SelectOctave
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=172 top=182 right=201 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Seven
----- HyperTalk script -----
on mouseUp
  SelectOctave
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 0005
-- rect: left=267 top=74 right=93 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: w
----- HyperTalk script -----
on mouseUp
  SelectDuration
end mouseUp



-- part 29 (button)
-- low flags: 00
-- high flags: 0005
-- rect: left=267 top=92 right=111 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: h
----- HyperTalk script -----
on mouseUp
  SelectDuration
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 0005
-- rect: left=267 top=110 right=129 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: q
----- HyperTalk script -----
on mouseUp
  SelectDuration
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 0005
-- rect: left=267 top=128 right=147 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ‰
----- HyperTalk script -----
on mouseUp
  SelectDuration
end mouseUp



-- part 32 (button)
-- low flags: 00
-- high flags: 0005
-- rect: left=267 top=146 right=165 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: s
----- HyperTalk script -----
on mouseUp
  SelectDuration
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: 0005
-- rect: left=267 top=164 right=183 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: t
----- HyperTalk script -----
on mouseUp
  SelectDuration
end mouseUp



-- part 34 (button)
-- low flags: 00
-- high flags: 0005
-- rect: left=267 top=182 right=201 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: x
----- HyperTalk script -----
on mouseUp
  SelectDuration
end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: 0005
-- rect: left=400 top=75 right=94 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: .
----- HyperTalk script -----
on mouseUp
  SelectOptions
end mouseUp



-- part 36 (button)
-- low flags: 00
-- high flags: 0005
-- rect: left=400 top=93 right=112 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: £
----- HyperTalk script -----
on mouseUp
  SelectOptions
end mouseUp



-- part 37 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=20 top=220 right=241 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sound Library
----- HyperTalk script -----
on mousedown
  visual scroll right very fast
  go card 3
end mousedown



-- part 38 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=132 top=220 right=242 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Play Note
----- HyperTalk script -----
on mouseUp
  PlayNote
end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=241 top=220 right=242 bottom=341
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add Note
----- HyperTalk script -----
on mouseUp
  NextVersion
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=351 top=220 right=242 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Play Tune
----- HyperTalk script -----
on mouseUp
  NextVersion
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=396 top=124 right=146 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Get Sound
----- HyperTalk script -----
on mouseUp
  NextVersion
end mouseUp



-- part 43 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=397 top=150 right=172 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Get Tune
----- HyperTalk script -----
on mouseUp
  NextVersion
end mouseUp



-- part 44 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=397 top=177 right=199 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Save Tune
----- HyperTalk script -----
on mouseUp
  NextVersion
end mouseUp



-- part contents for card part 2
----- text -----
Current Sound:

-- part contents for card part 4
----- text -----
Tempo:

-- part contents for card part 3
----- text -----
boing

-- part contents for card part 5
----- text -----
100

-- part contents for card part 1
----- text -----
Coming in version 3.1 --
Clicking on 'Add Note' will allow you to add the current note to your tune.
Clicking on 'Play Tune' will allow you to play the whole tune.
Clicking on 'Get Sound' will give you a list of all available sounds you can use.
Clicking on 'Get Tune' will allow you to load a tune you have saved.
Clicking on 'Save Tune' will allow you to save a tune to disk.
To get a free update, just send a stamped, self addressed envelope to:

Steve Drazga
450 Byberry Road #1
Phila, PA  19116
Be sure to include a disk (filled with any sounds or stacks you have).